(map-y-or-n-p): Show the answers in the echo area.

diff --git a/lisp/map-ynp.el b/lisp/map-ynp.el
index 22e9973cb01129d8e7d88e41825b268117000333..c64b1c78ae15efa13746d6bb780fa2c88f2d6117 100644 (file)
--- a/lisp/map-ynp.el
+++ b/lisp/map-ynp.el
@@ -118,6 +118,11 @@ Returns the number of actions taken."
                       prompt user-keys
                       (key-description (char-to-string help-char)))
              (setq char (read-event)))
+           ;; Show the answer to the question.
+           (message "%s(y, n, !, ., q, %sor %s) %s"
+                    prompt user-keys
+                    (key-description (char-to-string help-char))
+                    (single-key-description char))
            (setq def (lookup-key map (vector char)))
            (cond ((eq def 'exit)
                   (setq next (function (lambda () nil))))